ITEM "Load WebService Concepts"

SET my_objid: (STR objid)
SET myobjid: (VAL my_objid)
CC "Modeling" GET_ACT_MODEL 
SET myModelID: (modelid)

CC "Core" GET_ATTR_VAL objid:(myobjid) attrname:("WebService")
SET txtWS:(val)

SYSTEM ("C:\\SemLift.bat \""+txtWS+"\"") 
SET txt:("C:\\getConceptsWS")

CC "AdoScript" FREAD file: (txt)
SET text_new: (text)
CC "AdoScript" LISTBOX entries: (text_new) toksep: "@"

IF (endbutton = ("ok")) 
{
	
	CC "Core" GET_CLASS_ID objid:(myobjid)

	SET myclassid: (classid)
	CC "Core" GET_ATTR_ID classid: (myclassid) attrname: "WS Annotation"

	SET myattrid: (attrid)

	FOR mySelectedID in: (selection)
	{
  	 CC "Core" SET_ATTR_VAL objid:(myobjid) attrid:(myattrid) val:(mySelectedID)
	 CC "AdoScript" FILE_DELETE file:("C:\\getConceptsWS")
	 EXIT
	}
	
	CC "AdoScript" FILE_DELETE file:("C:\\getConceptsWS")
	
} 
ELSE 
{
    CC "AdoScript" INFOBOX ("You cancelled the dialog without selecting detailed annotation!")
	
	CC "AdoScript" FILE_DELETE file:("C:\\getConceptsWS")
}

CC "AdoScript" FILE_DELETE file:("C:\\getConceptsWS")